home *** CD-ROM | disk | FTP | other *** search
/ Chip: Special Tips & Tricks for Windows 95 / Chip Wintips.iso / sharewar / online / activex / acrobat / rdrx32b6.exe / FILE / ARCHIVE.Z / ACROBAT / ACRORD32.EXE / PSPROCSET / 6 < prev    next >
Text File  |  1996-08-07  |  7KB  |  456 lines
  1. %%BeginFile: pdftext.prc
  2. %%Copyright: Copyright 1987-1994 Adobe Systems Incorporated. All Rights Reserved.
  3. PDF /PDFText 51 dict dup begin put
  4. /initialize { PDFText begin } bd
  5. /terminate { end } bd
  6. /CopyFont {
  7. {
  8. 1 index /FID ne 2 index /UniqueID ne and
  9. { def } { pop pop } ifelse
  10. } forall
  11. } bd
  12. /modEnc {
  13. /_enc xdd
  14. /_icode 0 dd
  15. counttomark 1 sub -1 0
  16. {
  17. index
  18. dup type /nametype eq
  19. {
  20. _enc _icode 3 -1 roll put
  21. _icode 1 add
  22. }
  23. if
  24. /_icode xdd
  25. } for
  26. cleartomark
  27. _enc
  28. } bd
  29. /trEnc {
  30. /_enc xdd
  31. 255 -1 0 {
  32. exch dup -1 eq
  33. { pop /.notdef }
  34. { Encoding exch get }
  35. ifelse
  36. _enc 3 1 roll put
  37. } for
  38. pop
  39. _enc
  40. } bd
  41. /TE {
  42. /_i xdd
  43. StandardEncoding 256 array copy modEnc
  44. _pdfEncodings exch _i exch put
  45. } bd
  46. /TZ
  47. {
  48. /_usePDFEncoding xdd
  49. findfont
  50. dup length 2 add dict
  51. begin
  52. {
  53. 1 index /FID ne { def } { pop pop } ifelse
  54. } forall
  55. /FontName exch def
  56. _usePDFEncoding 0 ge
  57. {
  58. /Encoding _pdfEncodings _usePDFEncoding get def
  59. pop
  60. }
  61. {
  62. _usePDFEncoding -1 eq
  63. {
  64. counttomark 0 eq
  65. { pop }
  66. {
  67. Encoding 256 array copy
  68. modEnc /Encoding exch def
  69. }
  70. ifelse
  71. }
  72. {
  73. 256 array
  74. trEnc /Encoding exch def
  75. }
  76. ifelse
  77. }
  78. ifelse
  79. FontName currentdict
  80. end
  81. definefont pop
  82. }
  83. bd
  84. /_pdfIsLevel2
  85. systemdict /languagelevel known
  86. {languagelevel 2 ge}
  87. {false}
  88. ifelse
  89. def
  90. _pdfIsLevel2
  91. {
  92. /_pdfFontStatus
  93. {
  94. dup /Font resourcestatus
  95. {pop pop pop true}
  96. {
  97. /CIDFont /Category resourcestatus
  98. {
  99. pop pop
  100. /CIDFont resourcestatus
  101. {pop pop true}
  102. {false}
  103. ifelse
  104. }
  105. { pop false }
  106. ifelse
  107. }
  108. ifelse
  109. } bd
  110. }
  111. {
  112. /_pdfFontStatusString 50 string def
  113. _pdfFontStatusString 0 (fonts/) putinterval
  114. /_pdfFontStatus
  115. {
  116. _pdfFontStatusString 6 42 getinterval
  117. cvs length 6 add
  118. _pdfFontStatusString exch 0 exch getinterval
  119. status
  120. { pop pop pop pop true}
  121. { false }
  122. ifelse
  123. } bd
  124. }
  125. ifelse
  126. systemdict /composefont known
  127. {
  128. /_pdfComposeFont
  129. {
  130. 1 index /CMap resourcestatus
  131. {pop pop true}
  132. {false}
  133. ifelse
  134. 1 index true exch
  135. {
  136. _pdfFontStatus not
  137. {pop false exit}
  138. if
  139. }
  140. forall
  141. and
  142. {composefont true}
  143. {
  144. pop pop
  145. dup _pdfFontStatus
  146. { findfont true }
  147. { pop false }
  148. ifelse
  149. }
  150. ifelse
  151. } bd
  152. }
  153. {
  154. /_pdfString100 100 string def
  155. /_pdfComposeFont
  156. {
  157. dup length 1 eq
  158. {
  159. 0 get
  160. 1 index
  161. type /nametype eq
  162. {
  163. _pdfString100 cvs
  164. length dup dup _pdfString100 exch (-) putinterval
  165. _pdfString100 exch 1 add dup _pdfString100 length exch sub getinterval
  166. 2 index exch cvs length
  167. add 1 add _pdfString100 exch 0 exch getinterval
  168. exch pop
  169. }
  170. {
  171. pop pop dup
  172. }
  173. ifelse
  174. }
  175. {
  176. pop pop dup
  177. }
  178. ifelse
  179. 2 copy _pdfFontStatus
  180. { pop findfont definefont true }
  181. {
  182. eq
  183. {pop false}
  184. {
  185. dup _pdfFontStatus
  186. {findfont true}
  187. {pop false}
  188. ifelse
  189. }
  190. ifelse
  191. }
  192. ifelse
  193. } bd
  194. }
  195. ifelse
  196. /_pdfFaceByStyleDict 4 dict dup begin
  197. _pdfIsLevel2
  198. {
  199. /Serif
  200. /Ryumin-Light-83pv-RKSJ-H /Font resourcestatus
  201. {pop pop /Ryumin-Light}
  202. {/HeiseiMin-W3}
  203. ifelse
  204. def
  205. /SanSerif
  206. /GothicBBB-Medium-83pv-RKSJ-H /Font resourcestatus
  207. {pop pop /GothicBBB-Medium}
  208. {/HeiseiKakuGo-W5}
  209. ifelse
  210. def
  211. /Default Serif def
  212. }
  213. {
  214. /Mincho /Ryumin-Light def
  215. /Gothic /GothicBBB-Medium def
  216. (fonts/Jun101-Light-83pv-RKSJ-H) status
  217. {/RoundGothic /Jun101-Light def }
  218. if
  219. /Default Mincho def
  220. }
  221. ifelse
  222. end
  223. def
  224. /TZzero
  225. {
  226. /_styleArr xdd
  227. 3 copy
  228. _pdfComposeFont
  229. {exch pop exch pop exch pop}
  230. {
  231. [
  232. 0 1 _styleArr length 1 sub
  233. {
  234. _styleArr exch get
  235. _pdfFaceByStyleDict exch 2 copy known not
  236. { pop /Default }
  237. if
  238. get
  239. }
  240. for
  241. ]
  242. exch pop
  243. 2 index 3 1 roll
  244. _pdfComposeFont
  245. {exch pop}
  246. {findfont}
  247. ifelse
  248. }
  249. ifelse
  250. definefont pop
  251. }
  252. bd
  253. /swj {
  254. dup 4 1 roll
  255. dup length exch stringwidth
  256. exch 5 -1 roll 3 index mul add
  257. 4 1 roll 3 1 roll mul add
  258. 6 2 roll /_cnt 0 dd
  259. {1 index eq {/_cnt _cnt 1 add dd} if} forall pop
  260. exch _cnt mul exch _cnt mul 2 index add 4 1 roll 2 index add 4 1 roll pop pop
  261. } bd
  262. /jss {
  263. 4 1 roll
  264. {
  265. 2 npop
  266. (0) exch 2 copy 0 exch put
  267. gsave
  268. 32 eq
  269. {
  270. exch 6 index 6 index 6 index 5 -1 roll widthshow
  271. currentpoint
  272. }
  273. {
  274. false charpath currentpoint
  275. 4 index setmatrix stroke
  276. }
  277. ifelse
  278. grestore
  279. moveto
  280. 2 copy rmoveto
  281. } exch cshow
  282. 6 npop
  283. } def
  284. /jsp
  285. {
  286. {
  287. 2 npop
  288. (0) exch 2 copy 0 exch put
  289. 32 eq
  290. { exch 5 index 5 index 5 index 5 -1 roll widthshow }
  291. { false charpath }
  292. ifelse
  293. 2 copy rmoveto
  294. } exch cshow
  295. 5 npop
  296. } bd
  297. /trj { _cx 0 32 _ax 0 6 5 roll } bd
  298. _ColorSep5044? {
  299. /pjsf { trj 6 /sfc /awidthshow _fc setcolormark5044 } bd
  300. /pjss { trj _ctm 7 /ssc /jss _sc setcolormark5044 } bd
  301. }{
  302. /pjsf { trj sfc awidthshow } bd
  303. /pjss { trj _ctm ssc jss } bd
  304. } ifelse
  305. /pjsc { trj jsp } bd
  306. /_Tjdef [
  307. /pjsf load
  308. /pjss load
  309. {
  310. dup
  311. currentpoint 3 2 roll
  312. pjsf
  313. newpath moveto
  314. pjss
  315. } bind
  316. {
  317. trj swj rmoveto
  318. } bind
  319. {
  320. dup currentpoint 4 2 roll gsave
  321. pjsf
  322. grestore 3 1 roll moveto
  323. pjsc
  324. } bind
  325. {
  326. dup currentpoint 4 2 roll
  327. currentpoint gsave newpath moveto
  328. pjss
  329. grestore 3 1 roll moveto
  330. pjsc
  331. } bind
  332. {
  333. dup currentpoint 4 2 roll gsave
  334. dup currentpoint 3 2 roll
  335. pjsf
  336. newpath moveto
  337. pjss
  338. grestore 3 1 roll moveto
  339. pjsc
  340. } bind
  341. /pjsc load
  342. ] def
  343. /BT
  344. {
  345. /_inT true dd
  346. _ctm currentmatrix pop matrix _tm copy pop
  347. 0 _rise translate _hs 1 scale
  348. 0 0 moveto
  349. } bd
  350. /ET
  351. {
  352. /_inT false dd
  353. _tr 3 gt {clip} if
  354. _ctm setmatrix newpath
  355. } bd
  356. /Tr {
  357. _inT { _tr 3 le {currentpoint newpath moveto} if } if
  358. dup /_tr xdd
  359. _Tjdef exch get /Tj xdd
  360. } bd
  361. /iTm { _ctm setmatrix _tm concat 0 _rise translate _hs 1 scale } bd
  362. /Tm { _tm astore pop iTm 0 0 moveto } bd
  363. /Td { _mtx translate _tm _tm concatmatrix pop iTm 0 0 moveto } bd
  364. /TD { dup /_ld xdd Td } bd
  365. /Tf {
  366. dup 1000 div /_fScl xdd
  367. exch findfont exch scalefont setfont
  368. } bd
  369. /TL { neg /_ld xdd } bd
  370. /Tw { /_cx xdd } bd
  371. /Tc { /_ax xdd } bd
  372. /Ts { /_rise xdd currentpoint iTm moveto } bd
  373. /Tz { 100 div /_hs xdd iTm } bd
  374. /Tk { exch pop _fScl mul neg 0 rmoveto } bd
  375. /T* { 0 _ld Td } bd
  376. /' { 0 0 3 -1 roll " } bd
  377. /" { exch Tc exch Tw T* Tj } bd
  378. /TJ {
  379. {
  380. dup type /stringtype eq
  381. { Tj }
  382. { 0 exch Tk }
  383. ifelse
  384. } forall
  385. } bd
  386. /T- { _hy Tj } bd
  387. /d0/setcharwidth ld
  388. /d1 { setcachedevice /sfc{}dd /ssc{}dd } bd
  389. /nND {{/.notdef} repeat} bd
  390. /T3Defs {
  391. /BuildChar
  392. {
  393. 1 index /Encoding get exch get
  394. 1 index /BuildGlyph get exec
  395. }
  396. def
  397. /BuildGlyph {
  398. exch begin
  399. GlyphProcs exch get exec
  400. end
  401. } def
  402. } bd
  403. /MakeBold {
  404. findfont dup dup length 2 add dict
  405. begin
  406. CopyFont
  407. /PaintType 2 def
  408. /StrokeWidth .03 0 FontMatrix idtransform pop def
  409. /dummybold currentdict
  410. end
  411. definefont
  412. 8 dict begin
  413. /_basefont exch def
  414. /_basefonto exch def
  415. /FontType 3 def
  416. /FontMatrix[1 0 0 1 0 0]def
  417. /FontBBox[0 0 1 1]def
  418. /Encoding StandardEncoding def
  419. /BuildChar
  420. {
  421. exch begin
  422. _basefont setfont
  423. ( )dup 0 4 -1 roll put
  424. dup stringwidth
  425. 1 index 0 ne { exch .03 add exch }if
  426. setcharwidth
  427. 0 0 moveto
  428. gsave
  429. dup show
  430. grestore
  431. _basefonto setfont
  432. show
  433. end
  434. }bd
  435. currentdict
  436. end
  437. definefont pop
  438. }bd
  439. /MakeItalic {
  440. findfont _italMtx makefont
  441. dup length dict
  442. begin
  443. CopyFont
  444. currentdict
  445. end
  446. definefont pop
  447. }bd
  448. /MakeBoldItalic {
  449. /dummybold exch
  450. MakeBold
  451. /dummybold
  452. MakeItalic
  453. }bd
  454. currentdict readonly pop end
  455. %%EndFile
  456.